(blink-matching-open): Don't log paren matching

messages in *Messages*.

diff --git a/lisp/simple.el b/lisp/simple.el
index 6ac05b4217912e07f5bc8b719f51702a4c6639fc..c5fe25ebe07d07438e9dc187b242d47179ba1c3d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3322,7 +3322,8 @@ when it is off screen)."
                              (matching-paren (char-after blinkpos))))))
           (if mismatch (setq blinkpos nil))
           (if blinkpos
-              (progn
+              ;; Don't log messages about paren matching.
+              (let (message-log-max)
                (goto-char blinkpos)
                (if (pos-visible-in-window-p)
                    (and blink-matching-paren-on-screen